home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 50 / Commodore_Disc_50_19xx_-_de.d64 / hires manager v1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  67 lines
  1. 10 rem *** hires - manager 1.0 ***
  2. 20 rem ***  (c) by n. gerstle  ***
  3. 30 rem ***      in 1990        ***
  4. 40 :
  5. 50 ga=2*4096:ge=4*4096
  6. 60 poke53280,0:poke53281,0:print"[159]"
  7. 70 poke788,52
  8. 100 rem *** hauptmenue ***
  9. 110 :
  10. 120 print"[147]           hires manager v1.0           [146]"
  11. 130 print"            by n. gerstle               [146]"
  12. 140 print"(l) aden"
  13. 150 print"(s) peichern"
  14. 160 print"(z) eigen"
  15. 170 print"(i) nformationen"
  16. 180 print"(e) nde"
  17. 190 print"bitte waehlen[146]"
  18. 200 geta$:ifa$=""then200
  19. 210 if a$<>"l" and a$<>"s" and a$<>"z" and a$<>"i" and a$<>"e" then 200
  20. 220 ifa$="l" then300
  21. 230 ifa$="s" then360
  22. 240 ifa$="z" then450
  23. 250 ifa$="i" then500
  24. 260 ifa$="e" then sys64767
  25. 270 :
  26. 300 rem *** laden ***
  27. 310 :
  28. 320 poke19,0:input"[147]name : ";n$:poke19,1:loadn$,8,1
  29. 330 open1,8,15:input#1,a,b$,c,d:print"[147]";a;b$;c;d:close1:wait653,3
  30. 340 ifa<>0 then300
  31. 350 run
  32. 355 :
  33. 360 rem *** speichern ***
  34. 370 :
  35. 380 poke19,0:input"[147]name : ";n$:poke19,1
  36. 390 open1,8,2,n$+",p,w"
  37. 400 fori=ga to ge
  38. 410 print#1,peek(i):next
  39. 420 close1
  40. 430 open1,8,15:input#1,a,b$,c,d:print"[147]";a;b$;c;d:wait653,3
  41. 440 ifa<>0 then360
  42. 445 run
  43. 446 :
  44. 450 rem *** zeigen ***
  45. 460 :
  46. 470 print"[147]taste <_> fuer zurueck[146]"
  47. 475 poke198,0:wait198,1:print"[147]"
  48. 480 poke53265,peek(53265)or32
  49. 490 poke53272,27
  50. 495 fori=1to1000:next
  51. 496 geta$:ifa$<>"_"then496:run
  52. 497 :
  53. 498 poke53265,27:poke53272,21:run
  54. 499 :
  55. 500 rem *** informationen ***
  56. 510 :
  57. 520 print"[147]informationen[146]:das programm hires-manager"
  58. 530 print"hires-manager erleichtert die arbeit mithires-graphiken.
  59. 540 [153]"mit ihm kann man bilder laden,speichern (z.b. zum klauen von grafiken)"
  60. 550 [153]"und diese anzeigen."
  61. 560 [153]"die bilder sollten die ladeadress '$2000-$4000' oder dezimal 8192-16384"
  62. 570 [153]"besitzen und im standart-hires format"
  63. 580 [153]"abgespeichert sein (also 32 bzw. 33"
  64. 590 [153]"blocks auf diskette belegen)."
  65. 600 [153]"zurueck mit c= tastewait"
  66. 610 [146]653,3:[138]
  67.